Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    'ոL_Data01
    Dim myStr As String
    'wƽd
    With Application.Names.Add _
        ("Tmp", Worksheets("L_Data01").Range("C2:D11"))
        myStr = .RefersTo
        .Delete
    End With
    With ComboBox1
        'wզXݩ
        .Width = .Width * 3
        .ColumnCount = 2
        .RowSource = myStr
        .ColumnHeads = True
    End With
End Sub
